<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./valid_files/filelist.xml">
<link rel=Edit-Time-Data href="./valid_files/editdata.mso">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<title>Class MSFC_EventControl</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>Wmi Mof Checking Tool</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>Wmi Mof Checking Tool</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>3</o:TotalTime>
  <o:Created>1999-09-10T01:09:00Z</o:Created>
  <o:LastSaved>1999-09-10T01:12:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>51</o:Words>
  <o:Characters>292</o:Characters>
  <o:Company>Microsoft</o:Company>
  <o:Lines>2</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>358</o:CharactersWithSpaces>
  <o:Version>9.2720</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:Compatibility>
   <w:UseFELayout/>
  </w:Compatibility>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
@font-face
    {font-family:"MS Mincho";
    panose-1:2 2 6 9 4 2 5 8 3 4;
    mso-font-alt:"\FF2D\FF33 \660E\671D";
    mso-font-charset:128;
    mso-generic-font-family:roman;
    mso-font-format:other;
    mso-font-pitch:fixed;
    mso-font-signature:1 134676480 16 0 131072 0;}
@font-face
    {font-family:"\@MS Mincho";
    panose-1:2 2 6 9 4 2 5 8 3 4;
    mso-font-charset:128;
    mso-generic-font-family:modern;
    mso-font-pitch:fixed;
    mso-font-signature:-1610612033 1757936891 16 0 131231 0;}
 /* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
    {mso-style-parent:"";
    margin:0in;
    margin-bottom:.0001pt;
    mso-pagination:widow-orphan;
    font-size:12.0pt;
    font-family:"Times New Roman";
    mso-fareast-font-family:"MS Mincho";}
@page Section1
    {size:8.5in 11.0in;
    margin:1.0in 1.25in 1.0in 1.25in;
    mso-header-margin:.5in;
    mso-footer-margin:.5in;
    mso-paper-source:0;}
div.Section1
    {page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1"/>
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=EN-US style='tab-interval:.5in'>

<div class=Section1>

<h3>Class MSFC_EventControl</h3>


<div class=MsoNormal align=center style='text-align:center'>

<hr size=2 width="100%" align=center>

</div>


<form NAME=ClassForm>

<p class=MsoNormal><span style='display:none;mso-hide:all'><script language="VBScript">
<!--
On Error Resume Next
Dim Locator
Dim Service
Dim Collection
Dim InstancePaths()
Dim InstanceCount
Dim CurrentInstanceIndex


Set Locator = CreateObject("WbemScripting.SWbemLocator")
' Note that Locator.ConnectServer can be used to connect to remote computers
Set Service = Locator.ConnectServer(, "root\wmi")
Service.Security_.ImpersonationLevel=3
Set Collection = Service.InstancesOf ("MSFC_EventControl")

InstanceCount = 0
Err.Clear
for each Instance in Collection
    if Err.Number = 0 Then
      InstanceCount = InstanceCount + 1

      ReDim Preserve InstancePaths(InstanceCount)

      Set ObjectPath = Instance.Path_
      InstancePaths(InstanceCount) = ObjectPath.Path
    End If
next 'Instance

if InstanceCount = 0 Then
  MsgBox "No instances available for this class"
Else
  CurrentInstanceIndex = 1
End if

Sub ChangeButton_OnClick
  Set TheForm = Document.ClassForm
  if InstanceCount = 0 Then
    MsgBox "No instances available for this class"
  Else
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then

      Err.Clear
      Instance.Put_()
      if Err.Number <> 0 Then
        MsgBox Err.Description, ,CurrentObjectPath
      End If
    Else
        MsgBox Err.Description, ,CurrentObjectPath
    End If
  End If
End Sub

Sub ReloadInstance
  Set TheForm = Document.ClassForm
  if InstanceCount = 0 Then
    TheForm.InstanceNameText.Value = "No Instances Available"
  Else
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then

      TheForm.InstanceNameText.Value = InstancePaths(CurrentInstanceIndex)
    Else
      MsgBox Err.Description, ,CurrentObjectPath
    End If
  End If

End Sub

Sub RefreshButton_OnClick
  if InstanceCount = 0 Then
    MsgBox "No instances available for this class"
  Else
    call ReloadInstance
  End If
End Sub

Sub NextButton_OnClick

  if InstanceCount = 0 Then
    MsgBox "No instances available for this class"
  Else
    if CurrentInstanceIndex = InstanceCount Then
      CurrentInstanceIndex = 1
    Else 
      CurrentInstanceIndex = CurrentInstanceIndex + 1
    End If
    call ReloadInstance
  End if


End Sub

Sub PrevButton_OnClick

  if InstanceCount = 0 Then
    MsgBox "No instances available for this class"
  Else
    if CurrentInstanceIndex = 1 Then
      CurrentInstanceIndex = InstanceCount
    Else
      CurrentInstanceIndex = CurrentInstanceIndex - 1
    End if
    call ReloadInstance
  End if


End Sub

Sub NextIndexButton_OnClick(ByRef Index, MaxIndex)
  if InstanceCount <> 0 Then
    Index = Index + 1
    if Index = MaxIndex Then
      Index = 0
    End If
      Call ReloadInstance
  End If
End Sub

Sub PrevIndexButton_OnClick(ByRef Index, MaxIndex)
  if InstanceCount <> 0 Then
    if Index = 0 Then
      Index = MaxIndex - 1
    Else
      Index = Index - 1
    End If
      Call ReloadInstance
  End If
End Sub

Sub GotoIndexButton_OnClick(ByRef Index, MaxIndex, NewIndex)
  if InstanceCount <> 0 Then
    DestIndex = NewIndex + 0
    if DestIndex >= 0 And DestIndex < MaxIndex Then
      Index = DestIndex
      Call ReloadInstance
    Else
      MsgBox "Enter an index between 0 and " & MaxIndex-1, ,"Index out of range"
    End If
  End If
End Sub

Sub AddTargetButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      HbaPortWWN = TheForm.AddTargetHbaPortWWNText.Value
      DiscoveredPortWWN = TheForm.AddTargetDiscoveredPortWWNText.Value
      AllTargets = TheForm.AddTargetAllTargetsText.Value
      Instance.AddTarget  HbaPortWWN,  DiscoveredPortWWN,  AllTargets,  HBAStatus
      if Err.Number = 0 Then
        TheForm.AddTargetHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

Sub RemoveTargetButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      HbaPortWWN = TheForm.RemoveTargetHbaPortWWNText.Value
      DiscoveredPortWWN = TheForm.RemoveTargetDiscoveredPortWWNText.Value
      AllTargets = TheForm.RemoveTargetAllTargetsText.Value
      Instance.RemoveTarget  HbaPortWWN,  DiscoveredPortWWN,  AllTargets,  HBAStatus
      if Err.Number = 0 Then
        TheForm.RemoveTargetHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

Sub AddPortButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      PortWWN = TheForm.AddPortPortWWNText.Value
      Instance.AddPort  PortWWN,  HBAStatus
      if Err.Number = 0 Then
        TheForm.AddPortHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

Sub RemovePortButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      PortWWN = TheForm.RemovePortPortWWNText.Value
      Instance.RemovePort  PortWWN,  HBAStatus
      if Err.Number = 0 Then
        TheForm.RemovePortHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

Sub AddLinkButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      Instance.AddLink  HBAStatus
      if Err.Number = 0 Then
        TheForm.AddLinkHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

Sub RemoveLinkButton_OnClick
  if InstanceCount <> 0 Then
    On Error Resume Next
    Err.Clear
    Set Instance = Service.Get(InstancePaths(CurrentInstanceIndex))
    if Err.Number = 0 Then
      Set TheForm = Document.ClassForm
      Err.Clear
      Instance.RemoveLink  HBAStatus
      if Err.Number = 0 Then
        TheForm.RemoveLinkHBAStatusText.Value = HBAStatus
        MsgBox "Method Execution Succeeded"
      Else
        MsgBox Err.Description,, "Method Execution Failed"
      End if
    End if
  End if
End Sub

-->
</script></span><INPUT TYPE="TEXT" SIZE="128" NAME="InstanceNameText" VALUE=""></p>

<input name=NextButton type=BUTTON value=Next>

<input name=PrevButton type=BUTTON value=Previous>

<input name=ChangeButton type=BUTTON value=Change>

<input name=RefreshButton type=BUTTON value=Refresh>

<p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<p class=MsoNormal>Method AddTarget: <input name=AddTargetButton type=BUTTON value=Execute> </p>
<p>   [in]  HbaPortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="AddTargetHbaPortWWNText"></p>

<input name=NextHbaPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick AddTargetHbaPortWWNIndex, AddTargetHbaPortWWNMaxIndex">

<input name=PrevAddTargetButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick HbaPortWWNAddTargetIndex, HbaPortWWNAddTargetMaxIndex">

HbaPortWWNAddTargetArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="HbaPortWWNAddTargetIndexText">

<input name=GoToHbaPortWWNAddTargetButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick HbaPortWWNAddTargetIndex, HbaPortWWNAddTargetMaxIndex, Document.ClassForm.HbaPortWWNAddTargetIndexText.Value">

<p>   [in]  DiscoveredPortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="AddTargetDiscoveredPortWWNText"></p>

<input name=NextDiscoveredPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick AddTargetDiscoveredPortWWNIndex, AddTargetDiscoveredPortWWNMaxIndex">

<input name=PrevAddTargetButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick DiscoveredPortWWNAddTargetIndex, DiscoveredPortWWNAddTargetMaxIndex">

DiscoveredPortWWNAddTargetArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="DiscoveredPortWWNAddTargetIndexText">

<input name=GoToDiscoveredPortWWNAddTargetButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick DiscoveredPortWWNAddTargetIndex, DiscoveredPortWWNAddTargetMaxIndex, Document.ClassForm.DiscoveredPortWWNAddTargetIndexText.Value">

<p>   [in]  AllTargets <INPUT TYPE="TEXT" SIZE="70" NAME="AddTargetAllTargetsText"></p>
<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="AddTargetHBAStatusText"></p>
<p class=MsoNormal>Method RemoveTarget: <input name=RemoveTargetButton type=BUTTON value=Execute> </p>
<p>   [in]  HbaPortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="RemoveTargetHbaPortWWNText"></p>

<input name=NextHbaPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick RemoveTargetHbaPortWWNIndex, RemoveTargetHbaPortWWNMaxIndex">

<input name=PrevRemoveTargetButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick HbaPortWWNRemoveTargetIndex, HbaPortWWNRemoveTargetMaxIndex">

HbaPortWWNRemoveTargetArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="HbaPortWWNRemoveTargetIndexText">

<input name=GoToHbaPortWWNRemoveTargetButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick HbaPortWWNRemoveTargetIndex, HbaPortWWNRemoveTargetMaxIndex, Document.ClassForm.HbaPortWWNRemoveTargetIndexText.Value">

<p>   [in]  DiscoveredPortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="RemoveTargetDiscoveredPortWWNText"></p>

<input name=NextDiscoveredPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick RemoveTargetDiscoveredPortWWNIndex, RemoveTargetDiscoveredPortWWNMaxIndex">

<input name=PrevRemoveTargetButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick DiscoveredPortWWNRemoveTargetIndex, DiscoveredPortWWNRemoveTargetMaxIndex">

DiscoveredPortWWNRemoveTargetArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="DiscoveredPortWWNRemoveTargetIndexText">

<input name=GoToDiscoveredPortWWNRemoveTargetButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick DiscoveredPortWWNRemoveTargetIndex, DiscoveredPortWWNRemoveTargetMaxIndex, Document.ClassForm.DiscoveredPortWWNRemoveTargetIndexText.Value">

<p>   [in]  AllTargets <INPUT TYPE="TEXT" SIZE="70" NAME="RemoveTargetAllTargetsText"></p>
<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="RemoveTargetHBAStatusText"></p>
<p class=MsoNormal>Method AddPort: <input name=AddPortButton type=BUTTON value=Execute> </p>
<p>   [in]  PortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="AddPortPortWWNText"></p>

<input name=NextPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick AddPortPortWWNIndex, AddPortPortWWNMaxIndex">

<input name=PrevAddPortButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick PortWWNAddPortIndex, PortWWNAddPortMaxIndex">

PortWWNAddPortArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="PortWWNAddPortIndexText">

<input name=GoToPortWWNAddPortButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick PortWWNAddPortIndex, PortWWNAddPortMaxIndex, Document.ClassForm.PortWWNAddPortIndexText.Value">

<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="AddPortHBAStatusText"></p>
<p class=MsoNormal>Method RemovePort: <input name=RemovePortButton type=BUTTON value=Execute> </p>
<p>   [in]  PortWWN <INPUT TYPE="TEXT" SIZE="70" NAME="RemovePortPortWWNText"></p>

<input name=NextPortWWNButton type=BUTTON value=Next OnClick="NextIndexButton_OnClick RemovePortPortWWNIndex, RemovePortPortWWNMaxIndex">

<input name=PrevRemovePortButton type=BUTTON value=Previous OnClick="PrevIndexButton_OnClick PortWWNRemovePortIndex, PortWWNRemovePortMaxIndex">

PortWWNRemovePortArrayIndex: <INPUT TYPE="TEXT" SIZE="5" NAME="PortWWNRemovePortIndexText">

<input name=GoToPortWWNRemovePortButton type=BUTTON value=GoTo OnClick="GoToIndexButton_OnClick PortWWNRemovePortIndex, PortWWNRemovePortMaxIndex, Document.ClassForm.PortWWNRemovePortIndexText.Value">

<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="RemovePortHBAStatusText"></p>
<p class=MsoNormal>Method AddLink: <input name=AddLinkButton type=BUTTON value=Execute> </p>
<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="AddLinkHBAStatusText"></p>
<p class=MsoNormal>Method RemoveLink: <input name=RemoveLinkButton type=BUTTON value=Execute> </p>
<p>   [out]  HBAStatus <INPUT TYPE="TEXT" SIZE="70" NAME="RemoveLinkHBAStatusText"></p>
<p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

<p class=MsoNormal><a href="index.htm"
title="Goes back to list of classes in this MOF">Back to List</a></p>

</form>

<p class=MsoNormal><span style='display:none;mso-hide:all'><script language="VBScript">
<!--
  call ReloadInstance
-->
</script></span></p>

</div>

</body>

</html>
